Public Class adm_adduserconfirm
    Inherits System.Web.UI.Page
    'Protected WithEvents TheHeader1 As adm_header
    'Public oUserData(13) As String
    Dim oUserData As DataSet
    Public aUserSession(13) As String
    Public imgpath, currtURL As String
    Public sUID As String
    Public sVID As String
    Public nCID As String
    Dim objvalid As gaValidation
    Public Const cSESSION_ID = 0
    Public Const cCOMPANY_ID = 1
    Public Const cGAPORTAL_ID = 2
    Public Const cUSER_ID = 3
    Public Const cINCIDCONTEXT = 4
    Public Const cINGIDCONTEXT = 5
    Public Const cLOGINDATETIME = 6
    Public Const cLASTACTIVITY = 7
    Public Const cUSERPERMISSIONSSTRING = 8
    'Public Const cTERMINAL_PIN = 9
    Public Const cROLE_ID = 9
    Public Const cMEMBER_TYPE = 10
    'Public Const cTERMINAL_NAME = 10
    Public Const cTERMINAL_NUMBER = 11
    Public Const cTERMINAL_MARKET = 12

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim objUser As New UserManagement.UserManagement
        objValid.getURL(Request.Url.ToString, imgpath, currtURL)
        'TheHeader1.whichpage = 17
        'TheHeader1.pageid = "addmerchantconfirm"
        'TheHeader1.helpaid = ""
        'TheHeader1.iMenuLevel = -1
        'aUserSession = TheHeader1.security()
        'TheHeader1.StartInterface(17)
        'TheHeader1.intTopNavLev = 1 '''aTopNav(0, 5) = 1
        'TheHeader1.webCont = BuildwebContext()
        sUID = Trim(Request("uid"))
        sVID = Trim(Request("vid"))


        ' --- CHECK FOR SU LOGGED IN
        If aUserSession(cCOMPANY_ID) = "0" Then
            nCID = Trim(Request("cid"))

        Else
            '    'USES HARDCODED CID IN GLOBAL.ASA
            nCID = CInt(Application("CompanyID"))

        End If

        oUserData = objUser.AdduserConfirm(sUID, sVID, nCID)

    End Sub

    'Private Function BuildwebContext() As String
    '    Dim objUser As New UserManagement
    '    Dim arrData(13) As String
    '    Dim strTemp1, strTemp2, strHTML As String
    '    Dim i As Integer
    '    sUID = oUtils.SafeString(Request("uid"))
    '    sVID = oUtils.SafeString(Request("vid"))


    '    ' --- CHECK FOR SU LOGGED IN
    '    If aUserSession(oUtils.aUserMatrix.cCOMPANY_ID) = "0" Then
    '        nCID = oUtils.SafeString(Request("cid"))

    '    Else
    '        '    'USES HARDCODED CID IN GLOBAL.ASA
    '        nCID = CInt(Application("CompanyID"))

    '    End If

    '    oUserData = objUser.AddUserConfirm(sUID, sVID, nCID)


        'If Not Rs.EOF Then
        '    sUID = SafeString(Rs("User_ID"))
        '    sVID = SafeString(Rs("viaklix_id"))
        '    nCID = CInt(Rs("company_id"))
        '    password = SafeString(Rs("password"))
        '    First_name = SafeString(Rs("First_name"))
        '    Last_name = SafeString(Rs("Last_name"))
        '    Location = SafeString(Rs("Location"))
        '    Phone = SafeString(Rs("Phone"))
        '    ext = SafeString(Rs("Ext"))
        '    Supervisor = SafeString(Rs("Supervisor"))
        '    Active = UCase(safestring(Rs("Active")))
        '    Email = SafeString(Rs("Email_Address"))
        '    RoleID = CInt(Rs("RoleID"))
        'End If


        '       <table cellspacing="0" class="box" border="0">
        '<tr><td class="header" colspan="2">User Confirmation</td>
        '</tr>
        '<tr><td>
        '	<form name="y" method="post">

        '		<tr>
        '			<td width="30%"><font face="verdana, arial, helvetica" size="2">Supervisor : </font></td>
        '			<td width="70%"><font face="verdana, arial, helvetica" size="2"><%=Supervisor%></font>&nbsp;</td>
        '		</tr>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">User ID : </font></td>
        '			<td><font face="verdana, arial, helvetica" size="2"><%=sUID%></font>&nbsp;</td>
        '		</tr>
        '		<tr><td valign="top">
        '			<font face="arial" size="2">Account ID :
        '			</font>
        '		</td><td valign="top">
        '			<font face="arial" size="2"><b><%=sVID%></b>
        '			</font>
        '		</td></tr>
        '	<%	if aUserSession(cCOMPANY_ID) = "0" then %>
        '		<tr><td valign="top">
        '			<font face="arial" size="2">System :
        '			</font>
        '		</td><td valign="top">
        '			<font face="arial" size="2"><b><%=company%></b>
        '			</font>
        '		</td></tr>
        '	<%	end if %>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">First Name : </font></td>
        '			<td>
        '				<%=first_name%>&nbsp;
        '			</td>
        '		</tr>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">Last Name : </font></td>
        '			<td>
        '				<%=last_name%>&nbsp;
        '			</td>
        '		</tr>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">Location : </font></td>
        '			<td>
        '				<%=location%>&nbsp;
        '		</tr>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">Contact Phone :	</font></td>
        '			<td>
        '				<%=Phone%>&nbsp;
        '			</td>
        '		</tr>
        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">Extention : </font></td>
        '			<td>
        '				<%=Ext%>&nbsp;
        '			</td>
        '		</tr>

        '		<tr>
        '			<td><font face="verdana, arial, helvetica" size="2">Email Address : </font></td>
        '			<td>
        '				<%=Email%>&nbsp;
        '			</td>
        '		</tr>

        '		<tr>
        '			<td colspan="2" align="center">
        '				<hr size="1" width="100%">
        '				<input type="hidden" name="RoleIDOld" value="<%=RoleID%>">
        '				<input type="hidden" name="uid" value="<%=sUID%>">
        '				<input type="hidden" name="vid" value="<%=sVID%>">
        '				<input type="hidden" name="ed">

        '				<%
        '       If aUserSession(cCOMPANY_ID) = "0" Then
        '           Response.Write("<input type=""hidden"" name=""cid"" value=""" & nCID & """>")
        '       End If

        '       If Not isELevelUser(aUserSession(cVIAKLIX_ID), aUserSession(cUSER_ID)) Or checkLIUserRight(10) Then
        '           Response.Write("<input type=""button"" onclick=""edittid()"" value=""Edit Terminal Associations"">&nbsp;&nbsp;")
        '       End If

        '       If isELevelUser(sVID, sUID) Then
        '           If Not isELevelUser(aUserSession(cVIAKLIX_ID), aUserSession(cUSER_ID)) Or checkLIUserRight(11) Then
        '               Response.Write("<input type=""button"" onclick=""editRT()"" value=""Edit Rights"">&nbsp;&nbsp;")
        '           End If
        '       End If
        '				%>

        '				<input type="button" onclick="defaultfunction()" value="Cancel">&nbsp;&nbsp;

        '			</td>
        '		</tr>
        '	</form>
        '</table>
    'End Function

End Class
